home *** CD-ROM | disk | FTP | other *** search
/ Inventor Labs: Technology / INVENTORLABS_TECHNOLOGY.BIN / pc / files / shared.cst / 00003_Script_GalleryMgr Parent < prev    next >
Text File  |  1997-07-24  |  2KB  |  76 lines
  1. --o Gallery Controls
  2.  
  3.  
  4.  
  5. --   gGalleryMgr
  6.  
  7. property pGalleryVOsnd
  8. property pGalleryQTVRobj, pFirstTime
  9.  
  10.  
  11. global gSndPath, gQTVRobj
  12. ----------------------------------------------------------------------------ò
  13. on mInit me
  14.   
  15.   
  16.   return ( me )
  17.   
  18. end mInit
  19. ----------------------------------------------------------------------------ò
  20. on mActivate me
  21.   
  22.  -- mUpdate ( gQTVRobj )
  23.   
  24.   set pFirstTime = TRUE
  25.   set pGalleryVOsnd = "GEDISON.AIF"
  26.   sound playfile 2, gSndPath & pGalleryVOsnd
  27.   
  28. end mActivate
  29. ----------------------------------------------------------------------------ò
  30. on mCheckAudioCue me, QTVRhorz
  31.   
  32.   if (QTVRhorz > 80) and (QTVRhorz < 100)  then set sndToplay = "GBELL.AIF"
  33.   else  if (QTVRhorz > 260) and (QTVRhorz < 285)  then set sndToplay = "GWATT.AIF"
  34.   else  if (QTVRhorz > 350) or (QTVRhorz < 15)  then set sndToplay = "GEDISON.AIF"
  35.   else set sndToPlay = #none
  36.   
  37.   if (sndToPlay = #none) then 
  38.     --mLightsOFF( me )
  39.     sound stop 2
  40.   else if (sndToPlay <> pGalleryVOsnd)  then
  41.     --mLightsON( me )
  42.     set pGalleryVOsnd = sndToplay
  43.     sound playfile 2, gSndPath & pGalleryVOsnd
  44.   end if
  45.   
  46.   
  47. end mCheckAudioCue
  48. ----------------------------------------------------------------------------ò
  49. on mOpenQTVR me
  50.   
  51.   set QTVRsprite = 2 
  52.   -- if the machinetype = 256 then  set pGalleryQTVRobj = mInit ( script"PCqtvr Parent",QTVRsprite)
  53.   -- else set pGalleryQTVRobj = mInit ( script"MacQTVRParent",QTVRsprite)
  54.   set QTVRcords = mGetQTVRProps ( gQTVRobj )
  55.   mOpen (pGalleryQTVRobj, "GSQTVR.MOV", QTVRcords,2)
  56.   
  57. end mOpenQTVR
  58. ----------------------------------------------------------------------------ò
  59. on mLightsOFF me
  60.   
  61.   mDeleteFromActorlist (gActorListMgrObj, pGalleryQTVRobj)
  62.   mHide( pGalleryQTVRobj)
  63.   mAddToActorlist (gActorListMgrObj, gQTVRobj)
  64.   mShow( gQTVRobj  )
  65.   
  66. end mLightsOFF
  67. ----------------------------------------------------------------------------ò
  68. on mLightsON me
  69.   
  70.   mDeleteFromActorlist (gActorListMgrObj, gQTVRobj)
  71.   mHide( gQTVRobj )
  72.   mAddToActorlist (gActorListMgrObj, pGalleryQTVRobj)
  73.   mShow( pGalleryQTVRobj )
  74.   
  75. end mLightsON
  76. ----------------------------------------------------------------------------ò